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simplify (X.Y) sim (X.Z), \, sitoplify (Z,Y) , 
. simplify (X,X) . 




fiim(ite(S=S, H, J , H) . 

sira(ite(S=T,H,K) , ite (T-S,H,K) ) :-gt(T,S}. 
sim(ite(_,H,H) , H) . 

sim(ite(E, ite(E,H,_) , L), ite{E,H,L))- 
siTn(ite(E, H, ite(E,_,L)), ite(E.H,L)). 

sim(ite(El, ite(E2,H,K), L), ite(E2, ite(El,H,L), ite(Bl.K,L))) 
gts (E1,E2) . 

sim(ite(Ea, H, ite(E2,K,L)), ite(E2, ite(Sl,H,K), ite (E1,H, L) ) ) 
gts(Bl,E2), 

sin\{ite(S=T, H, K) , ite(S=T, K) ) :^^~\ ^^q^ 

Csim(ite(A,B,C}, ite(A,X,C)) :~ sim(B,X) . 
sim(ite(A,B,c) , ite(A,B,X)) t- sim(C,X) . 



.5W 



repl(S,T,S,T) :- \, 
repl(S,T,p,Q) 

P = ixlArgs] , 

maprepKS, ArgS; Newargs), 

Q = . . fX|Wewargs] . 



in 



naprepl [],[)). 

naprepKS, CXlA] . fY|B]) repl (S,T,X, Y) , maprepl (S,T,A,B) 

gts(A=_, C=D) gt{A,C), gt(A,D), 
7ts(_=B, C=D) gt(B,C). gt{B,I». 



depth (P,X) atomfP), X is 0. 

depth(P,X) P LlArgs], inax_depth (Args , Y) , X is Y+l, 



nax_depth( [] < 0) . 
Tiax_depth( [A|i»] ,X) 



depth(A,Y), inax_depth(L,2) / X is niax(Y,Z] 



€rt(p,Q) 

cft (P,Q) 
cit(P,Q) 



- depth(P,DP), depth(Q,DQ) , I>P>DO, !, 

- P [F|J, 0 [GlJ, F \== G, gtlex(P,G), I, 

- P«, . [P|Argsl] , Q [PlArga2l, gtlist <Argsl.Args2) 



ctlist( [A1|L1] ; IA2|L2]) A1\-=A2, !, gt{Al,A2), 
ctlist ( [_lLl] , I_|L2] ) :- gtlist (Ll,li2) . 



ctlexCg.f ) . 
gtlex(xl,xO) . 
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